object DMCadastro: TDMCadastro
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 2
  Height = 689
  Width = 1022
  object DSUsuario: TDataSource
    DataSet = QueryUsuario
    Left = 144
    Top = 8
  end
  object DSSetor: TDataSource
    DataSet = QuerySetor
    Left = 144
    Top = 56
  end
  object QueryUsuario: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from USUARIO'
      'order by NOME')
    UpdateObject = IBUpdateSQLUsuario
    Left = 40
    Top = 8
  end
  object QuerySetor: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM SETOR ORDER BY Nome')
    UpdateObject = IBUpdateSQLSetor
    Left = 40
    Top = 56
  end
  object QueryModulo: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM MODULO ORDER BY Nome')
    UpdateObject = IBUpdateSQLModulo
    Left = 40
    Top = 104
  end
  object DSModulo: TDataSource
    DataSet = QueryModulo
    Left = 144
    Top = 104
  end
  object IBUpdateSQLUsuario: TIBUpdateSQL
    ModifySQL.Strings = (
      'update USUARIO'
      'set'
      '  IdUsuario = :IdUsuario,'
      '  IdSetor = :IdSetor,'
      '  Nome = :Nome,'
      '  Login = :Login,'
      '  Senha = :Senha,'
      '  Email = :Email,'
      '  Cargo = :Cargo,'
      '  Status_Usuario = :Status_Usuario,'
      '  Data_Efetivado = :Data_Efetivado,'
      '  Data_Nascimento = :Data_Nascimento, '
      '  CPF = :CPF,  '
      '  RG = :RG,  '
      '  Endereco = :Endereco,'
      '  Numero = :Numero,'
      '  Complemento = :Complemento,'
      '  CEP = :CEP,'
      '  Bairro = :Bairro,'
      '  Cidade = :Cidade,'
      '  Estado = :Estado,'
      '  Telefone1 = :Telefone1,'
      '  Telefone2 = :Telefone2,'
      '  Email_Particular = :Email_Particular,'
      '  Endereco_Origem = :Endereco_Origem,'
      '  Numero_Origem = :Numero_Origem,'
      '  Complemento_Origem = :Complemento_Origem,'
      '  CEP_Origem = :CEP_Origem,'
      '  Bairro_Origem = :Bairro_Origem,'
      '  Cidade_Origem = :Cidade_Origem,'
      '  Estado_Origem = :Estado_Origem,'
      '  Telefone_Origem = :Telefone_Origem,'
      '  Escola_Convenio = :Escola_Convenio,'
      '  Matricula = :Matricula,'
      '  Curso = :Curso,'
      '  Carga_Horaria_Semanal = :Carga_Horaria_Semanal,'
      '  Carga_Horaria_Total = :Carga_Horaria_Total'
      ''
      'where'
      '  IdUsuario = :OLD_IdUsuario')
    InsertSQL.Strings = (
      'insert into USUARIO'
      
        '  (IdUsuario, IdSetor, Nome, Login, Senha, Email, Status_Usuario' +
        ', Data_Efetivado, Cargo, '
      '   Data_Nascimento, CPF, RG,'
      
        '   Endereco, Numero, Complemento, CEP, Bairro, Cidade, Estado, T' +
        'elefone1, Telefone2, Email_Particular,'
      
        '   Endereco_Origem, Numero_Origem, Complemento_Origem, CEP_Orige' +
        'm, Bairro_Origem, Cidade_Origem, Estado_Origem, Telefone_Origem,'
      
        '   Escola_Convenio, Matricula, Curso, Carga_Horaria_Semanal, Car' +
        'ga_Horaria_Total)'
      'values'
      
        '  ( :IdUsuario, :IdSetor, :Nome, :Login, :Senha, :Email, :Cargo,' +
        ' :Status_Usuario, :Data_Efetivado,'
      '   :Data_Nascimento, :CPF, :RG,'
      
        '   :Endereco, :Numero, :Complemento, :CEP, :Bairro, :Cidade, :Es' +
        'tado, :Telefone1, :Telefone2, :Email_Particular,'
      
        '   :Endereco_Origem, :Numero_Origem, :Complemento_Origem, :CEP_O' +
        'rigem, :Bairro_Origem, :Cidade_Origem, :Estado_Origem, :Telefone' +
        '_Origem,'
      
        '   :Escola_Convenio, :Matricula, :Curso, :Carga_Horaria_Semanal,' +
        ' :Carga_Horaria_Total)')
    DeleteSQL.Strings = (
      'delete from USUARIO'
      'where'
      '  IDUSUARIO = :OLD_IDUSUARIO')
    Left = 264
    Top = 8
  end
  object IBUpdateSQLSetor: TIBUpdateSQL
    ModifySQL.Strings = (
      'update SETOR'
      'set'
      '  IDSETOR = :IDSETOR,'
      '  NOME = :NOME,'
      '  SIGLA = :SIGLA'
      'where'
      '  IDSETOR = :OLD_IDSETOR')
    InsertSQL.Strings = (
      'insert into SETOR'
      '  (IDSETOR, NOME, SIGLA)'
      'values'
      '  (:IDSETOR, :NOME, :SIGLA)')
    DeleteSQL.Strings = (
      'delete from SETOR'
      'where'
      '  IDSETOR = :OLD_IDSETOR')
    Left = 264
    Top = 56
  end
  object IBUpdateSQLModulo: TIBUpdateSQL
    ModifySQL.Strings = (
      'update MODULO'
      'set'
      '  IDMODULO = :IDMODULO,'
      '  NOME = :NOME'
      'where'
      '  IDMODULO = :OLD_IDMODULO')
    InsertSQL.Strings = (
      'insert into MODULO'
      '  (IDMODULO, NOME)'
      'values'
      '  (:IDMODULO, :NOME)')
    DeleteSQL.Strings = (
      'delete from MODULO'
      'where'
      '  IDMODULO = :OLD_IDMODULO')
    Left = 264
    Top = 104
  end
  object QueryUsuario_Modulo: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    UpdateObject = IBUpdateUsuario_Modulo
    Left = 40
    Top = 152
  end
  object DSUsuario_Modulo: TDataSource
    DataSet = QueryUsuario_Modulo
    Left = 144
    Top = 152
  end
  object IBUpdateUsuario_Modulo: TIBUpdateSQL
    InsertSQL.Strings = (
      'insert into USUARIO_MODULO'
      '  (IdModulo, IdUsuario)'
      'values'
      '  (:IdModulo, :IdUsuario)')
    DeleteSQL.Strings = (
      'delete from USUARIO_MODULO'
      'where'
      '  IdModulo = :OLD_IdModulo  and'
      '  IdUsuario =:OLD_IdUsuario')
    Left = 264
    Top = 152
  end
  object QuerySetor_Modulo: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    UpdateObject = IBUpdateSetor_Modulo
    Left = 40
    Top = 200
  end
  object DSSetor_Modulo: TDataSource
    DataSet = QuerySetor_Modulo
    Left = 144
    Top = 200
  end
  object IBUpdateSetor_Modulo: TIBUpdateSQL
    InsertSQL.Strings = (
      'insert into SETOR_MODULO'
      '  (IdModulo, IdSetor)'
      'values'
      '  (:IdModulo, :IdSetor)')
    DeleteSQL.Strings = (
      'delete from SETOR_MODULO'
      'where'
      '  IdModulo = :OLD_IdModulo  and'
      '  IdSetor =:OLD_IdSetor')
    Left = 264
    Top = 200
  end
  object QueryLogin: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    Left = 362
    Top = 8
  end
  object DSFabricante: TDataSource
    DataSet = QueryFabricante
    Left = 144
    Top = 424
  end
  object IBUpdateSQLFabricante: TIBUpdateSQL
    ModifySQL.Strings = (
      'update FABRICANTE'
      'set'
      '  IDFABRICANTE = :IDFABRICANTE,'
      '  NOME = :NOME,'
      '  CONTATO = :CONTATO,'
      '  ENDERECO = :ENDERECO,'
      '  BAIRRO = :BAIRRO,'
      '  CEP = :CEP,'
      '  CIDADE = :CIDADE,'
      '  ESTADO = :ESTADO,'
      '  TELEFONE1 = :TELEFONE1,'
      '  TELEFONE2 = :TELEFONE2,'
      '  EMAIL = :EMAIL'
      'where'
      'IDFABRICANTE = :OLD_IDFABRICANTE')
    InsertSQL.Strings = (
      'insert into FABRICANTE'
      
        '  (IDFABRICANTE, NOME, CONTATO, ENDERECO, BAIRRO, CEP, CIDADE, E' +
        'STADO, TELEFONE1, TELEFONE2,  EMAIL )'
      'values'
      
        ' (:IDFABRICANTE, :NOME, :CONTATO, :ENDERECO, :BAIRRO, :CEP, :CID' +
        'ADE, :ESTADO, :TELEFONE1, :TELEFONE2,  :EMAIL )')
    DeleteSQL.Strings = (
      'delete from FABRICANTE'
      'where'
      '  IDFABRICANTE = :OLD_IDFABRICANTE')
    Left = 263
    Top = 422
  end
  object QueryFabricante: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM FABRICANTE ORDER BY Nome')
    UpdateObject = IBUpdateSQLFabricante
    Left = 40
    Top = 424
  end
  object DSProduto: TDataSource
    DataSet = QueryProduto
    Left = 144
    Top = 482
  end
  object IBUpdateSQLProduto: TIBUpdateSQL
    ModifySQL.Strings = (
      'update PRODUTO'
      'set'
      '  IDPRODUTO = :IDPRODUTO,'
      '  NOME= :NOME,'
      '  PRECO_UNITARIO = :PRECO_UNITARIO,'
      '  DESCRICAO = :DESCRICAO,'
      '  IDFABRICANTE = :IDFABRICANTE,'
      '  DESCONTO_MAXIMO = :DESCONTO_MAXIMO,'
      '  ACRESCIMO_MAXIMO = :ACRESCIMO_MAXIMO,'
      '  NUMERO_MAQUINAS = :NUMERO_MAQUINAS,'
      '  NUMERO_MESES = :NUMERO_MESES'
      'where'
      '  IDPRODUTO = :OLD_IDPRODUTO')
    InsertSQL.Strings = (
      'insert into PRODUTO'
      
        '  (IDPRODUTO, NOME, PRECO_UNITARIO, DESCRICAO, IDFABRICANTE, DES' +
        'CONTO_MAXIMO, ACRESCIMO_MAXIMO, NUMERO_MAQUINAS, NUMERO_MESES)'
      'values'
      
        '  (:IDPRODUTO, :NOME, :PRECO_UNITARIO, :DESCRICAO, :IDFABRICANTE' +
        ', :DESCONTO_MAXIMO, :ACRESCIMO_MAXIMO, :NUMERO_MAQUINAS, :NUMERO' +
        '_MESES)')
    DeleteSQL.Strings = (
      'delete from PRODUTO'
      'where'
      '  IDPRODUTO = :OLD_IDPRODUTO')
    Left = 263
    Top = 480
  end
  object QueryProduto: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM PRODUTO ORDER BY Nome')
    UpdateObject = IBUpdateSQLProduto
    Left = 40
    Top = 482
  end
  object DSSubProduto: TDataSource
    DataSet = QuerySubProduto
    Left = 144
    Top = 540
  end
  object IBUpdateSQLSubProduto: TIBUpdateSQL
    ModifySQL.Strings = (
      'update SUBPRODUTO'
      'set'
      '  IDSUBPRODUTO = :IDSUBPRODUTO,'
      '  NOME= :NOME,'
      '  PRECO_UNITARIO = :PRECO_UNITARIO,'
      '  DESCRICAO = :DESCRICAO,'
      '  IDPRODUTO = :IDPRODUTO,'
      '  DESCONTO_MAXIMO = :DESCONTO_MAXIMO'
      'where'
      '  IDSUBPRODUTO = :OLD_IDSUBPRODUTO')
    InsertSQL.Strings = (
      'insert into SUBPRODUTO'
      
        '  (IDSUBPRODUTO, NOME, PRECO_UNITARIO, DESCRICAO, IDPRODUTO, DES' +
        'CONTO_MAXIMO)'
      'values'
      
        '  (:IDSUBPRODUTO, :NOME, :PRECO_UNITARIO, :DESCRICAO, :IDPRODUTO' +
        ', :DESCONTO_MAXIMO)')
    DeleteSQL.Strings = (
      'delete from SUBPRODUTO'
      'where'
      '  IDSUBPRODUTO = :OLD_IDSUBPRODUTO')
    Left = 263
    Top = 538
  end
  object QuerySubProduto: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM SUBPRODUTO ORDER BY Nome')
    UpdateObject = IBUpdateSQLSubProduto
    Left = 40
    Top = 540
  end
  object QueryIndicacao: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM INDICACAO ORDER BY Nome')
    UpdateObject = IBUpdateSQLIndicacao
    Left = 40
    Top = 587
  end
  object DSIndicacao: TDataSource
    DataSet = QueryIndicacao
    Left = 144
    Top = 587
  end
  object IBUpdateSQLIndicacao: TIBUpdateSQL
    ModifySQL.Strings = (
      'update INDICACAO'
      'set'
      '  IDINDICACAO = :IDINDICACAO,'
      '  NOME = :NOME'
      'where'
      '  IDINDICACAO = :OLD_IDINDICACAO')
    InsertSQL.Strings = (
      'insert into INDICACAO'
      '  (IDINDICACAO, NOME)'
      'values'
      '  (:IDINDICACAO, :NOME)')
    DeleteSQL.Strings = (
      'delete from INDICACAO'
      'where'
      '  IDINDICACAO = :OLD_IDINDICACAO')
    Left = 264
    Top = 587
  end
  object QueryGrupo: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM GRUPO ORDER BY Nome')
    UpdateObject = IBUpdateSQLGrupo
    Left = 40
    Top = 642
  end
  object DSGrupo: TDataSource
    DataSet = QueryGrupo
    Left = 144
    Top = 642
  end
  object IBUpdateSQLGrupo: TIBUpdateSQL
    ModifySQL.Strings = (
      'update GRUPO'
      'set'
      '  IDGRUPO = :IDGRUPO,'
      '  NOME = :NOME'
      'where'
      '  IDGRUPO = :OLD_IDGRUPO')
    InsertSQL.Strings = (
      'insert into GRUPO'
      '  (IDGRUPO, NOME)'
      'values'
      '  (:IDGRUPO, :NOME)')
    DeleteSQL.Strings = (
      'delete from GRUPO'
      'where'
      '  IDGRUPO = :OLD_IDGRUPO')
    Left = 264
    Top = 642
  end
  object DSPreCliente: TDataSource
    DataSet = QueryPreCliente
    Left = 704
    Top = 12
  end
  object QueryPreCliente: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from   PRECLIENTE'
      'where  NAO_COMPRAR is null and'
      '            NAO_LIGAR is null and'
      '            TELEFONE_INCORRETO is null and'
      '            STATUS = '#39'PRECLIENTE'#39' and'
      '            DATA_REATIVACAO is null'
      'order by IDPRECLIENTE desc')
    UpdateObject = IBUpdateSQLPreCliente
    Left = 472
    Top = 12
  end
  object IBUpdateSQLPreCliente: TIBUpdateSQL
    ModifySQL.Strings = (
      'update PRECLIENTE'
      'set'
      '  IDPRECLIENTE = :IDPRECLIENTE,'
      '  NOME = :NOME,'
      '  RAZAO_SOCIAL = :RAZAO_SOCIAL,'
      '  TELEFONE1 = :TELEFONE1,'
      '  TELEFONE2 = :TELEFONE2,'
      '  CIDADE = :CIDADE,'
      '  ESTADO = :ESTADO,'
      '  IDINDICACAO = :IDINDICACAO,'
      '  IDGRUPO = :IDGRUPO,'
      '  IDUSUARIO = :IDUSUARIO,'
      '  NAO_COMPRAR = :NAO_COMPRAR,'
      '  NAO_LIGAR = :NAO_LIGAR,'
      '  DATA_REATIVACAO = :DATA_REATIVACAO,'
      '  STATUS = :STATUS,'
      '  TELEFONE_INCORRETO = :TELEFONE_INCORRETO,'
      '  DATA_AGENDADA = :DATA_AGENDADA,'
      '  DATA_INCLUSAO = :DATA_INCLUSAO,'
      '  HORA_INCLUSAO = :HORA_INCLUSAO,'
      '  IDUSUARIO_INCLUSAO = :IDUSUARIO_INCLUSAO,'
      '  HORA_AGENDADA= :HORA_AGENDADA,'
      '  NUMERO_CADASTRO_KGROUPS=:NUMERO_CADASTRO_KGROUPS'
      'where'
      '  IDPRECLIENTE = :OLD_IDPRECLIENTE')
    InsertSQL.Strings = (
      'insert into PRECLIENTE'
      
        '  (IDPRECLIENTE, NOME, RAZAO_SOCIAL, TELEFONE1, TELEFONE2, CIDAD' +
        'E, ESTADO, IDINDICACAO, IDGRUPO, IDUSUARIO, NAO_COMPRAR, NAO_LIG' +
        'AR, DATA_REATIVACAO, STATUS, TELEFONE_INCORRETO, DATA_AGENDADA, ' +
        'DATA_INCLUSAO, HORA_INCLUSAO, IDUSUARIO_INCLUSAO, HORA_AGENDADA,' +
        ' NUMERO_CADASTRO_KGROUPS)'
      'values'
      
        '  (:IDPRECLIENTE, :NOME, :RAZAO_SOCIAL, :TELEFONE1, :TELEFONE2, ' +
        ':CIDADE, :ESTADO, :IDINDICACAO, :IDGRUPO, :IDUSUARIO, :NAO_COMPR' +
        'AR, :NAO_LIGAR, :DATA_REATIVACAO, :STATUS, :TELEFONE_INCORRETO, ' +
        ':DATA_AGENDADA, :DATA_INCLUSAO, :HORA_INCLUSAO, :IDUSUARIO_INCLU' +
        'SAO, :HORA_AGENDADA, :NUMERO_CADASTRO_KGROUPS)')
    DeleteSQL.Strings = (
      'delete from PRECLIENTE'
      'where'
      '  IDPRECLIENTE = :OLD_IDPRECLIENTE')
    Left = 584
    Top = 12
  end
  object QueryVendedor: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT      *'
      'FROM         USUARIO as U, SETOR as S'
      'WHERE      S.IdSetor = 3 and'
      '                    U.IdSetor = S.IdSetor'
      'ORDER BY U.Nome')
    Left = 693
    Top = 485
  end
  object DSVendedor: TDataSource
    DataSet = QueryVendedor
    Left = 774
    Top = 485
  end
  object QueryPreClientesDoVendedor: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *  '
      'from   PRECLIENTE')
    UpdateObject = IBUpdateSQLPreClientesDoVendedor
    Left = 461
    Top = 77
  end
  object DSPreClientesDoVendedor: TDataSource
    DataSet = QueryPreClientesDoVendedor
    Left = 612
    Top = 78
  end
  object DSOcorrencia: TDataSource
    DataSet = QueryOcorrencia
    Left = 776
    Top = 544
  end
  object IBUpdateSQLOcorrencia: TIBUpdateSQL
    ModifySQL.Strings = (
      'update OCORRENCIA'
      'set'
      '  IdOcorrencia = :IdOcorrencia,'
      '  IdPreCliente = :IdPreCliente,'
      '  IdUsuario = :IdUsuario,'
      '  Contato = :Contato,'
      '  Telefone3 = :Telefone3,'
      '  Celular = :Celular,'
      '  Email = :Email,'
      '  Departamento = :Departamento,'
      '  Conversa = :Conversa,'
      '  Data = :Data,'
      '  Hora_Inicio = :Hora_Inicio, '
      '  Hora_Fim = :Hora_Fim, '
      '  Tempo_Conversa = :Tempo_Conversa,'
      '  Gerou_Venda = :Gerou_Venda, '
      '  Data_Agendada = :Data_Agendada,'
      '  Ligou_PreCliente = :Ligou_PreCliente'
      'where'
      '  IdOcorrencia = :OLD_IdOcorrencia')
    InsertSQL.Strings = (
      'insert into OCORRENCIA'
      '  (IdOcorrencia, IdPreCliente, IdUsuario,'
      '   Contato, Telefone3, Celular,  Email, Departamento,'
      '   Conversa, Data, Hora_Inicio, Hora_Fim, Tempo_Conversa,'
      '   Gerou_Venda, Data_Agendada, Ligou_PreCliente)'
      'values'
      ' (:IdOcorrencia, :IdPreCliente, :IdUsuario,'
      '  :Contato, :Telefone3, :Celular, :Email, :Departamento,'
      '  :Conversa, :Data, :Hora_Inicio, :Hora_Fim, :Tempo_Conversa,'
      '  :Gerou_Venda, :Data_Agendada, :Ligou_PreCliente)')
    DeleteSQL.Strings = (
      'delete from OCORRENCIA'
      'where'
      '  IDOCORRENCIA = :OLD_IDOCORRENCIA')
    Left = 877
    Top = 544
  end
  object QueryOcorrencia: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from OCORRENCIA'
      'order by IDOCORRENCIA'
      '')
    UpdateObject = IBUpdateSQLOcorrencia
    Left = 694
    Top = 544
  end
  object IBUpdateSQLAgenda: TIBUpdateSQL
    ModifySQL.Strings = (
      'update AGENDA'
      'set'
      '  IDAGENDA = :IDAGENDA,'
      '  IDUSUARIO =:IDUSUARIO, '
      '  IDPRECLIENTE =:IDPRECLIENTE, '
      '  DATA_INC =:DATA_INC, '
      '  DATA_AGENDADA =:DATA_AGENDADA, '
      '  LIGOU_CLIENTE =:LIGOU_CLIENTE,'
      'where'
      '  IDMODULO = :OLD_IDMODULO')
    InsertSQL.Strings = (
      'insert into AGENDA'
      
        '  (IDAGENDA, IDUSUARIO, IDPRECLIENTE, DATA_INC, DATA_AGENDADA, L' +
        'IGOU_CLIENTE)'
      'values'
      
        '  (:IDAGENDA, :IDUSUARIO, :IDPRECLIENTE, :DATA_INC, :DATA_AGENDA' +
        'DA, :LIGOU_CLIENTE)')
    DeleteSQL.Strings = (
      'delete from AGENDA'
      'where'
      '  IDAGENDA = :OLD_IDAGENDA')
    Left = 877
    Top = 607
  end
  object DSAgenda: TDataSource
    DataSet = QueryAgenda
    Left = 776
    Top = 608
  end
  object QueryAgenda: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM AGENDA ORDER BY IDAGENDA')
    Left = 696
    Top = 608
  end
  object IBUpdateSQLPreClientesDoVendedor: TIBUpdateSQL
    Left = 824
    Top = 70
  end
  object DSBuscaPreCliente: TDataSource
    DataSet = QueryBuscaPreCliente
    Left = 667
    Top = 189
  end
  object QueryBuscaPreCliente: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT *'
      'FROM   PRECLIENTE'
      'ORDER BY NOME')
    UpdateObject = IBUpdateSQLBuscaPrecliente
    Left = 413
    Top = 188
  end
  object DSPreClienteAgendado: TDataSource
    DataSet = QueryPreClienteAgendado
    Left = 612
    Top = 126
  end
  object QueryPreClienteAgendado: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from   PRECLIENTE')
    Left = 461
    Top = 125
  end
  object DSCliente: TDataSource
    DataSet = QueryBuscaPreCliente
    Left = 552
    Top = 314
  end
  object QueryCliente: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM CLIENTE ORDER BY NOME')
    UpdateObject = IBUpdateSQLCliente
    Left = 480
    Top = 314
  end
  object IBUpdateSQLCliente: TIBUpdateSQL
    ModifySQL.Strings = (
      'update CLIENTE'
      'set'
      '    IDCLIENTE = :IDCLIENTE, '
      '    IDPRECLIENTE = :IDPRECLIENTE, '
      '    NOME = :NOME, '
      '    CONTATO = :CONTATO, '
      '    SETOR = :SETOR, '
      '    CPF_CNPJ = :CPF_CNPJ, '
      '    RG_IE = :RG_IE, '
      '    DATA_NASCIMENTO = :DATA_NASCIMENTO, '
      '    NOME_MAE = :NOME_MAE'
      'where'
      '   IDCLIENTE = :OLD_IDCLIENTE')
    InsertSQL.Strings = (
      'insert into CLIENTE'
      
        '  (IDCLIENTE, IDPRECLIENTE, NOME, CONTATO, SETOR, CPF_CNPJ, RG_I' +
        'E, DATA_NASCIMENTO, NOME_MAE)'
      'values'
      
        '  (:IDCLIENTE, :IDPRECLIENTE, :NOME, :CONTATO, :SETOR, :CPF_CNPJ' +
        ', :RG_IE, :DATA_NASCIMENTO, :NOME_MAE)')
    DeleteSQL.Strings = (
      'delete from CLIENTE'
      'where'
      '  IDCLIENTE = :OLD_IDCLIENTE')
    Left = 647
    Top = 314
  end
  object QueryEndereco: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select *'
      'From Endereco')
    UpdateObject = IBUpdateSQLEndereco
    Left = 480
    Top = 368
  end
  object IBUpdateSQLEndereco: TIBUpdateSQL
    ModifySQL.Strings = (
      'update ENDERECO'
      'set'
      '    IDENDERECO = :IDENDERECO, '
      '    IDCLIENTE = :IDCLIENTE, '
      '    TELEFONE1 = :TELEFONE1, '
      '    TELEFONE2 = :TELEFONE2, '
      '    EMAIL = :EMAIL, '
      '    ENDERECO = :ENDERECO, '
      '    NUMERO = :NUMERO, '
      '    COMPLEMENTO = :COMPLEMENTO, '
      '    BAIRRO = :BAIRRO,'
      '    CEP = :CEP,'
      '    CIDADE = :CIDADE,'
      '    ESTADO = :ESTADO'
      'where'
      '   IDENDERECO = :OLD_IDENDERECO')
    InsertSQL.Strings = (
      'insert into ENDERECO'
      
        '  (IDENDERECO, IDCLIENTE, TELEFONE1, TELEFONE2, EMAIL, ENDERECO,' +
        ' NUMERO, COMPLEMENTO, BAIRRO, CEP, CIDADE, ESTADO)'
      'values'
      
        '  (:IDENDERECO, :IDCLIENTE, :TELEFONE1, :TELEFONE2, :EMAIL, :END' +
        'ERECO, :NUMERO, :COMPLEMENTO, :BAIRRO, :CEP, :CIDADE, :ESTADO)')
    DeleteSQL.Strings = (
      'delete from ENDERECO'
      'where'
      '  IDENDERECO = :OLD_IDENDERECO')
    Left = 652
    Top = 367
  end
  object DSEndereco: TDataSource
    DataSet = QueryEndereco
    Left = 555
    Top = 369
  end
  object QueryPedido: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select *'
      'From Pedido')
    UpdateObject = IBUpdateSQLPedido
    Left = 480
    Top = 424
  end
  object IBUpdateSQLPedido: TIBUpdateSQL
    InsertSQL.Strings = (
      'insert into PEDIDO'
      
        '  (IDPEDIDO, IDCLIENTE, IDVENDEDORA, IDENDERECO_CLIENTE, IDENDER' +
        'ECO_ENTREGA, DATA, HORA, NUMERO_PARCELAS, VALOR_PARCELA, VALOR_T' +
        'OTAL, DESCONTO, DATA_PRIMEIROPAGAMENTO)'
      'values'
      
        '  (:IDPEDIDO, :IDCLIENTE, :IDVENDEDORA, :IDENDERECO_CLIENTE, :ID' +
        'ENDERECO_ENTREGA, :DATA, :HORA, :NUMERO_PARCELAS, :VALOR_PARCELA' +
        ', :VALOR_TOTAL, :DESCONTO, :DATA_PRIMEIROPAGAMENTO)')
    DeleteSQL.Strings = (
      'delete from PEDIDO'
      'where'
      '  IDPEDIDO = :OLD_IDPEDIDO')
    Left = 640
    Top = 424
  end
  object DSPedido: TDataSource
    DataSet = QueryPedido
    Left = 553
    Top = 424
  end
  object QueryItemPedido: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from ITENS_PEDIDO')
    UpdateObject = IBUpdateSQLItemPedido
    Left = 480
    Top = 480
  end
  object IBUpdateSQLItemPedido: TIBUpdateSQL
    ModifySQL.Strings = (
      'update ITEM_PEDIDO'
      'set'
      '    IDITEM = :IDITEM, '
      '    IDPEDIDO = :IDPEDIDO, '
      '    IDPRODUTO = :IDPRODUTO, '
      '    PRECO_PRODUTO = :PRECO_PRODUTO, '
      '    QUANTIDADE = :QUANTIDADE, '
      '    GRAVARCDCOMPLETO = :GRAVARCDCOMPLETO, '
      '    DESCONTO = :DESCONTO'
      'where'
      '   IDITEM = :OLD_IDTEM')
    InsertSQL.Strings = (
      'insert into ITENS_PEDIDO'
      
        '  (IDITEM, IDPEDIDO, IDPRODUTO, PRECO_PRODUTO, QUANTIDADE, GRAVA' +
        'RCDCOMPLETO, DESCONTO)'
      'values'
      
        '  (:IDITEM, :IDPEDIDO, :IDPRODUTO, :PRECO_PRODUTO, :QUANTIDADE, ' +
        ':GRAVARCDCOMPLETO, :DESCONTO)')
    Left = 624
    Top = 480
  end
  object DataSource1: TDataSource
    Left = 552
    Top = 480
  end
  object IBUpdateSQLBuscaPrecliente: TIBUpdateSQL
    ModifySQL.Strings = (
      'update PRECLIENTE'
      'set'
      '  IDPRECLIENTE = :IDPRECLIENTE,'
      '  NOME = :NOME,'
      '  TELEFONE1 = :TELEFONE1,'
      '  TELEFONE2 = :TELEFONE2,'
      '  CIDADE = :CIDADE,'
      '  ESTADO = :ESTADO,'
      '  IDINDICACAO = :IDINDICACAO,'
      '  IDGRUPO = :IDGRUPO,'
      '  IDUSUARIO = :IDUSUARIO,'
      '  NAO_COMPRAR = :NAO_COMPRAR,'
      '  NAO_LIGAR = :NAO_LIGAR,'
      '  DATA_REATIVACAO = :DATA_REATIVACAO,'
      '  STATUS = :STATUS,'
      '  TELEFONE_INCORRETO = :TELEFONE_INCORRETO,'
      '  DATA_AGENDADA = :DATA_AGENDADA,'
      '  DATA_INCLUSAO = :DATA_INCLUSAO,'
      '  HORA_INCLUSAO = :HORA_INCLUSAO,'
      '  IDUSUARIO_INCLUSAO = :IDUSUARIO_INCLUSAO,'
      '  HORA_AGENDADA= :HORA_AGENDADA,'
      '  NUMERO_CADASTRO_KGROUPS=:NUMERO_CADASTRO_KGROUPS'
      'where'
      '  IDPRECLIENTE = :OLD_IDPRECLIENTE')
    InsertSQL.Strings = (
      'insert into PRECLIENTE'
      
        '  (IDPRECLIENTE, NOME, TELEFONE1, TELEFONE2, CIDADE, ESTADO, IDI' +
        'NDICACAO, IDGRUPO, IDUSUARIO, NAO_COMPRAR, NAO_LIGAR, DATA_REATI' +
        'VACAO, STATUS, TELEFONE_INCORRETO, DATA_AGENDADA, DATA_INCLUSAO,' +
        ' HORA_INCLUSAO, IDUSUARIO_INCLUSAO, HORA_AGENDADA, NUMERO_CADAST' +
        'RO_KGROUPS)'
      'values'
      
        '  (:IDPRECLIENTE, :NOME, :TELEFONE1, :TELEFONE2, :CIDADE, :ESTAD' +
        'O, :IDINDICACAO, :IDGRUPO, :IDUSUARIO, :NAO_COMPRAR, :NAO_LIGAR,' +
        ' :DATA_REATIVACAO, :STATUS, :TELEFONE_INCORRETO, :DATA_AGENDADA,' +
        ' :DATA_INCLUSAO, :HORA_INCLUSAO, :IDUSUARIO_INCLUSAO, :HORA_AGEN' +
        'DADA, :NUMERO_CADASTRO_KGROUPS)')
    DeleteSQL.Strings = (
      'delete from PRECLIENTE'
      'where'
      '  IDPRECLIENTE = :OLD_IDPRECLIENTE')
    Left = 544
    Top = 188
  end
  object QueryFrete: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from FRETES')
    UpdateObject = IBUpdateFrete
    Left = 40
    Top = 248
  end
  object DSFrete: TDataSource
    DataSet = QueryFrete
    Left = 144
    Top = 248
  end
  object IBUpdateFrete: TIBUpdateSQL
    ModifySQL.Strings = (
      'update FRETES'
      'set'
      ' IDFRETE = :IDFRETE ,'
      ' VALOR = :VALOR ,'
      ' ESTADO = :ESTADO ,'
      'IDTIPOFRETE = :IDTIPOFRETE ,'
      'IDTIPOCAIXA = :IDTIPOCAIXA'
      ''
      'where'
      '  IDFRETE = :OLD_IDFRETE ')
    InsertSQL.Strings = (
      'insert into FRETES'
      '  (IDFRETE, VALOR, ESTADO,IDTIPOFRETE,IDTIPOCAIXA)'
      'values'
      '  (:IDFRETE, :VALOR,:ESTADO, :IDTIPOFRETE, :IDTIPOCAIXA)')
    DeleteSQL.Strings = (
      'delete from FRETES'
      'where'
      '  IDFRETE = :OLD_IDFRETE')
    Left = 264
    Top = 248
  end
  object UpdateTiposCaixa: TIBUpdateSQL
    ModifySQL.Strings = (
      'update TIPOS_CAIXAS'
      'set'
      '  IDTIPOCAIXA = :IDTIPOCAIXA,'
      '  DESCRICAO= :DESCRICAO'
      'where'
      '  IDTIPOCAIXA = :OLD_IDTIPOCAIXA')
    InsertSQL.Strings = (
      'insert into TIPOS_CAIXAS'
      '  (IDTIPOCAIXA, DESCRICAO)'
      'values'
      '  (:IDTIPOCAIXA, :DESCRICAO)')
    DeleteSQL.Strings = (
      'delete from TIPOS_CAIXAS'
      'where'
      '  IDTIPOCAIXA = :OLD_IDTIPOCAIXA')
    Left = 264
    Top = 304
  end
  object DSTiposCaixa: TDataSource
    DataSet = QueryTiposCaixa
    Left = 144
    Top = 304
  end
  object QueryTiposCaixa: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOS_CAIXAS')
    UpdateObject = UpdateTiposCaixa
    Left = 40
    Top = 304
  end
  object QueryTipoFrete: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOS_FRETES')
    UpdateObject = UpdateTipoFrete
    Left = 40
    Top = 360
  end
  object DSTipoFrete: TDataSource
    DataSet = QueryTipoFrete
    Left = 144
    Top = 360
  end
  object UpdateTipoFrete: TIBUpdateSQL
    ModifySQL.Strings = (
      'update TIPOS_FRETES'
      'set'
      '  IDTIPOFRETE = :IDTIPOFRETE ,'
      '  DESCRICAO= :DESCRICAO'
      'where'
      '  IDTIPOFRETE = :OLD_IDTIPOFRETE ')
    InsertSQL.Strings = (
      'insert into TIPOS_FRETES'
      '  (IDTIPOFRETE, DESCRICAO)'
      'values'
      '  (:IDTIPOFRETE, :DESCRICAO)')
    DeleteSQL.Strings = (
      'delete from TIPOS_FRETES'
      'where'
      '  IDTIPOFRETE = :OLD_IDTIPOFRETE')
    Left = 264
    Top = 360
  end
  object QueryTiposFrete_VF: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOS_FRETES')
    UpdateObject = UpdateTiposFrete_VF
    Left = 728
    Top = 288
  end
  object QueryTiposCaixa_VF: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOS_CAIXAS')
    UpdateObject = UpdateTiposCaixa_VF
    Left = 728
    Top = 232
  end
  object DSTiposCaixa_VF: TDataSource
    DataSet = QueryTiposCaixa_VF
    Left = 824
    Top = 232
  end
  object DSTiposFrete_VF: TDataSource
    DataSet = QueryTiposFrete_VF
    Left = 832
    Top = 288
  end
  object UpdateTiposCaixa_VF: TIBUpdateSQL
    ModifySQL.Strings = (
      'update TIPOS_CAIXAS'
      'set'
      '  IDTIPOCAIXA = :IDTIPOCAIXA,'
      '  DESCRICAO= :DESCRICAO'
      'where'
      '  IDTIPOCAIXA = :OLD_IDTIPOCAIXA')
    InsertSQL.Strings = (
      'insert into TIPOS_CAIXAS'
      '  (IDTIPOCAIXA, DESCRICAO)'
      'values'
      '  (:IDTIPOCAIXA, :DESCRICAO)')
    DeleteSQL.Strings = (
      'delete from TIPOS_CAIXAS'
      'where'
      '  IDTIPOCAIXA = :OLD_IDTIPOCAIXA')
    Left = 928
    Top = 232
  end
  object UpdateTiposFrete_VF: TIBUpdateSQL
    ModifySQL.Strings = (
      'update TIPOS_FRETES'
      'set'
      '  IDTIPOFRETE = :IDTIPOFRETE ,'
      '  DESCRICAO= :DESCRICAO'
      'where'
      '  IDTIPOFRETE = :OLD_IDTIPOFRETE ')
    InsertSQL.Strings = (
      'insert into TIPOS_FRETES'
      '  (IDTIPOFRETE, DESCRICAO)'
      'values'
      '  (:IDTIPOFRETE, :DESCRICAO)')
    DeleteSQL.Strings = (
      'delete from TIPOS_FRETES'
      'where'
      '  IDTIPOFRETE = :OLD_IDTIPOFRETE')
    Left = 928
    Top = 288
  end
  object QueryTipoPagamento: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from TIPOS_PAGAMENTOS'
      'order by IDTIPOPAGAMENTO')
    UpdateObject = UpdateTipoPagamento
    Left = 388
    Top = 642
  end
  object DSTipoPagamento: TDataSource
    DataSet = QueryTipoPagamento
    Left = 486
    Top = 642
  end
  object UpdateTipoPagamento: TIBUpdateSQL
    ModifySQL.Strings = (
      'update TIPOS_PAGAMENTOS'
      'set'
      '  IDTIPOPAGAMENTO = :IDTIPOPAGAMENTO,'
      '  DESCRICAO= :DESCRICAO,'
      '  TIPO_CARTAO= :TIPO_CARTAO,'
      '  QTD_PARCELAS= :QTD_PARCELAS,'
      '  JUROS= :JUROS'
      'where'
      '  IDTIPOPAGAMENTO = :OLD_IDTIPOPAGAMENTO')
    InsertSQL.Strings = (
      'insert into TIPOS_PAGAMENTOS'
      '  (IDTIPOPAGAMENTO, DESCRICAO, TIPO_CARTAO, QTD_PARCELAS, JUROS)'
      'values'
      
        '  (:IDTIPOPAGAMENTO, :DESCRICAO, :TIPO_CARTAO, :QTD_PARCELAS, :J' +
        'UROS)')
    DeleteSQL.Strings = (
      'delete from TIPOS_PAGAMENTOS'
      'where'
      '  IDTIPOPAGAMENTO = :OLD_IDTIPOPAGAMENTO')
    Left = 588
    Top = 642
  end
end
